www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\inc\ND_config_admin_user.asp

    


<%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<%



if have_a1c="" then


have_a1c="1"








if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if


if uuuaa<>"" and uuuaa<>empty then

set rsconfig1=server.CreateObject("adodb.recordset")


  biao="[ND_admin]"
  
rsconfig1.open "select * from "&biao&" where   aname='"&uuuaa&"'",conn,1,1


qx_a1=rsconfig1("is_ok")



qx_if_maxa=rsconfig1("typea")
if qx_if_maxa="高级管理员" then
qx_if_max=1
else
qx_if_max=0
end if







if qx_if_max=0 then


sssswww11=split(rsconfig1("quanxian_settings"),"|")



function find_dataw(lanmu_type,channel_id,dataindex)


if qx_if_max=1 then
find_dataw="1"

exit function
end if
find_dataw="1"


for iiip=0 to ubound(sssswww11)
su1=split(sssswww11(iiip),",")
su11=su1(0)
su22=su1(1)

if cstr(su11)=cstr(lanmu_type) and cstr(su22)=cstr(channel_id) then

f_da=su1(dataindex+1)

find_dataw=f_da
exit for
end if

next




end function


'=================部分权限分配==================================


'是否激活

'是否可以改密码
qx_g_pwd=find_dataw("gaipwd","0",1)



'是否可以上传文件
qx_shangc=find_dataw("qitashezhi123","0",1)
'每天可以上传多少个文件
qx_shangc_num=clng(find_dataw("qitashezhi123","0",2))
'是否可以管理数据库
qx_db=clng(find_dataw("qitashezhi123","0",3))




qx_liuyan=0



'是否可以管理与清理上传文件
qx_qli=clng(find_dataw("qitashezhi123","0",5))
'是否可以管理模板
qx_mbc=clng(find_dataw("qitashezhi123","0",6))

'是否可以管理标签
qx_lbc=clng(find_dataw("qitashezhi123","0",7))
'是否可以管理采集
qx_cjc=clng(find_dataw("qitashezhi123","0",8))

'是否可以管理 “其它管理”
qx_qita=clng(find_dataw("qitashezhi123","0",9))

'是否可以管理 “菜单与频道”
qx_caid=clng(find_dataw("qitashezhi123","0",10))
'是否可以管理 人才招聘
qx_joba=clng(find_dataw("qitashezhi123","0",11))

'是否可以管理 投票调查
qx_ttp=clng(find_dataw("qitashezhi123","0",12))



qx_ordera=0



'===================================================
end if

 
if qx_a1<>"1"  and qx_if_max=0 then



     session(nd_admin_cach_varb_name)=""

        session(nd_admin_cach_varb_name&"_pwd")=""


  
    response.cookies(nd_admin_cach_varb_name)=""

response.redirect "../D_suodinguser.asp"
end if



end if
end if










%>